home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / obj1.bas < prev    next >
Encoding:
BASIC Source File  |  1993-05-16  |  1.3 KB  |  43 lines
  1. Option Explicit
  2.  
  3. Global Const UPPER = 1
  4. Global Const LOWER = 2
  5.  
  6. Sub CenterPicture (CurrentForm As form, CurrentControl As PictureBox, location As Integer)
  7.     
  8.     CurrentControl.Width = .8 * CurrentForm.Width
  9.     CurrentControl.Height = .4 * CurrentForm.Height
  10.     CurrentControl.Left = .075 * CurrentForm.Width
  11.     Select Case location
  12.         Case UPPER
  13.             CurrentControl.Top = .05 * CurrentForm.Height
  14.         Case LOWER
  15.             CurrentControl.Top = .5 * CurrentForm.Height
  16.     End Select
  17. End Sub
  18.  
  19. Sub SetColor (CurrentControl As Control)
  20.     Dim myred As Integer, mygreen As Integer, myblue As Integer
  21.  
  22.     'Verify that the incoming control is indeed a picture box.
  23.     If TypeOf CurrentControl Is PictureBox Then
  24.         myred = Rnd * 256
  25.         mygreen = Rnd * 256
  26.         myblue = Rnd * 256
  27.         CurrentControl.BackColor = RGB(myred, mygreen, myblue)
  28.     End If
  29. End Sub
  30.  
  31. Sub SetFormColor (ThisForm As form)
  32.     Dim myred As Integer, mygreen As Integer, myblue As Integer
  33.  
  34.     'Verify that the incoming form is of type frmForm1.
  35.     If TypeOf ThisForm Is frmForm1 Then
  36.         myred = Rnd * 256
  37.         mygreen = Rnd * 256
  38.         myblue = Rnd * 256
  39.         ThisForm.BackColor = RGB(myred, mygreen, myblue)
  40.     End If
  41. End Sub
  42.  
  43.